home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / CLEAR3.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  768 b   |  26 lines
  1. NEW
  2. TYPE b:CLEAR3.MNU
  3. FILLIN ENDBAL USING " " AT 8 20
  4. SET VAR OUTDEP TO $0.00
  5. SET VAR OUTCHK TO $0.00
  6. COMPUTE OUTDEP AS SUM AMT FROM CHECKS WHERE +
  7.         TRANCODE LE 3 AND CLEAR FAILS
  8. COMPUTE OUTCHK AS SUM AMT FROM CHECKS WHERE CKNUM EXISTS AND +
  9.         CLEAR FAILS OR TRANCODE GE 4 AND CLEAR FAILS
  10. SET VAR ENDBAL TO ENDBAL X $1
  11. SET VAR FINBAL TO $0.00
  12. SET VAR FINBAL TO .FINBAL + .ENDBAL
  13. SET VAR FINBAL TO .FINBAL + .OUTDEP
  14. SET VAR FINBAL TO .FINBAL + .OUTCHK
  15. NEWPAGE
  16. TYPE b:CLEAR33.MNU
  17. SHOW VAR ENDBAL AT 6 30
  18. SHOW VAR OUTDEP AT 9 30
  19. SHOW VAR OUTCHK AT 12 30
  20. SHOW VAR FINBAL AT 15 30
  21. FILLIN MAIN USING "PRESS [ENTER] TO CONTINUE  "  AT 22 10
  22. IF FINBAL < $0.00 THEN
  23.    TYPE b:CASH.MNU
  24. ENDIF
  25. QUIT TO b:CLEAR.CMD
  26.